﻿Public Class LectureFichierFournisseur

    Public Shared Function getListeFournisseur() As List(Of String)
        getListeFournisseur = New List(Of String)
        Dim numFichier As Integer = FreeFile()
        Try
            FileOpen(numFichier, My.Resources.FICHIER_FOURNISSEUR, OpenMode.Input)
        Catch ex As Exception
            numFichier = -1
        End Try
        If numFichier > 0 Then
            Do Until EOF(numFichier)
                getListeFournisseur.Add(LineInput(numFichier))
            Loop
            FileClose(numFichier)
        End If
    End Function

    'my.computer.filesystem

End Class
